home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / MATHS / RLAB / RLAB125.ZIP / !RLaB / rlib / union < prev    next >
Text File  |  1994-10-08  |  449b  |  20 lines
  1. //-------------------------------------------------------------------//
  2. //  union
  3.  
  4. //  Syntax:    union ( A , B )
  5.  
  6. //  Description:
  7.  
  8. //  The union function returns a vector set that is the union of the
  9. //  two sets A, and B.
  10.  
  11. //  See Also: complement, intersection, set
  12.  
  13. //-------------------------------------------------------------------//
  14.  
  15. union = function ( A, B )
  16. {
  17.   if (A.n == 0 && B.n == 0) { return []; }
  18.   return set ( [ A[:] ; B[:] ] ) 
  19. };
  20.